subroutine comput_flux1
use var
implicit none

    call comput_Qx_m
    
    call comput_Qx_p
    
    call L_F_local_x
    
    

end subroutine